home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / Intro to HyperCard 2.0 / card_15661.txt < prev    next >
Text File  |  1990-08-24  |  2KB  |  84 lines
  1. -- card: 15661 from stack: in.0
  2. -- bmap block id: 16063
  3. -- flags: 0000
  4. -- background id: 15491
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on goPrev
  8.   lock screen
  9.   set cursor to none
  10.   go prev
  11.   unlock screen with dissolve
  12.   showText
  13. end goPrev
  14.  
  15. -- "goNext" is in the stack script
  16. on Action
  17.   goNext
  18. end Action
  19.  
  20.  
  21. -- part 1 (field)
  22. -- low flags: 01
  23. -- high flags: 0000
  24. -- rect: left=146 top=65 right=302 bottom=430
  25. -- title width / last selected line: 0
  26. -- icon id / first selected line: 0 / 0
  27. -- text alignment: 0
  28. -- font id: 174
  29. -- text size: 14
  30. -- style flags: 0
  31. -- line height: 15
  32. -- part name: 
  33.  
  34.  
  35. -- part 2 (button)
  36. -- low flags: 00
  37. -- high flags: 0000
  38. -- rect: left=474 top=195 right=224 bottom=506
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 24471 / 24471
  41. -- text alignment: 1
  42. -- font id: 0
  43. -- text size: 12
  44. -- style flags: 0
  45. -- line height: 16
  46. -- part name: MapBtn
  47. ----- HyperTalk script -----
  48. -- Go to the Map stack.  "CameFrom" holds the name of this cd
  49. -- so the Map can hilite the cd the user came from.
  50.  
  51. on mouseUp
  52.   global DisSpeed, CameFrom, MapMode
  53.   set the hilite of me to true
  54.   lock Screen
  55.   set the hilite of me to false
  56.   put "Introduction to" into CameFrom
  57.   put last char of the icon of bg btn "section" into sectionNum
  58.   if sectionNum > 3 then put 2 into sectionNum
  59.   put "section" && sectionNum & ":" into SubCd
  60.   visual DisSpeed
  61.   if MapMode is "graph" then
  62.     go to cd SubCd of stack "‚Ä¢HC 2.0-3"
  63.     HiliteMap
  64.   else
  65.     go to cd "indexmap" of stack "‚Ä¢HC 2.0-3"
  66.   end if
  67.   unlock screen with DisSpeed
  68. end mouseUp
  69.  
  70.  
  71.  
  72. -- part contents for card part 1
  73. ----- text -----
  74.  
  75.  
  76.  
  77. A nice trip, from the letter ‚ÄúH‚Äù to Isaac Newton.
  78.  
  79. The way we think‚Äîby association‚Äîand Hypermedia made the trip possible.
  80.  
  81. A Macintosh computer & HyperCard software were the Hypermedia used in this demonstration, and they made the text, graphics, sounds, and animations you just saw. 
  82.  
  83.  
  84.